home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / datamaker asc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 100 poke53280, 0:poke53281, 0:print"[147]";
  2. 101 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  3. 102 print"[152]    [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]     "
  4. 103 print"[151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  5. 104 print"[172]                    [146][187]"
  6. 105 print"                      "
  7. 106 print"    ASC DATA MAKER    "
  8. 107 print"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163][160]        By     ";
  9. 108 print"     [160]"
  10. 109 print"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]    David Pankur";
  11. 110 print"st   [160]"
  12. 111 print"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]                ";
  13. 112 print"      "
  14. 113 print"[188]                    [146][190]"
  15. 114 print"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  16. 115 print"[152] PRESS SPACE[160]TO[160]CONTINUE  "
  17. 116 print"[151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  18. 117 geta$:ifa$<>" "then 117
  19. 120 :
  20. 130 :
  21. 140 :
  22. 200 poke53280, 0:poke53281, 0:print"[147]";
  23. 204 print"[206][207][212][201][195][197]:[155][207]nce[158][196]atamaker [193][211][195][155]is"
  24. 205 print"activatedyouwillhaveto"
  25. 206 print"reboot[158]LOADSTAR[155]toreturn"
  26. 207 print"tothemenusystem."
  27. 208 print"[154][196]oyouwanttocontinue?"
  28. 210 geta$:ifa$="[217]"ora$="y"then300
  29. 212 ifa$="n"ora$="[206]"then400
  30. 217 goto210
  31. 300 print"[147]":load"datamaker a",8
  32. 400 open15,8,15,"r0:one-screen winners=one-screen winners":input#15,er:close15
  33. 401 ifer<>63thenprint"[147]":end
  34. 405 print"[147][144]load"chr$(34)"one-screen winners"chr$(34)",8"
  35. 410 print"run"
  36. 420 poke631,13:poke632,13:poke198,2:end
  37.